data_full_panel = dta_overtime |> 
  group_by(uid) |> 
  filter(n() > 1) |> 
  ungroup() |> 
  mutate(accuracy_rev = 5 + 1 - accuracy,
         weeks_since = (date - as.Date("2022-11-08"))/7) 

mod_panel = fixest::feols(accuracy_rev ~ weeks_since:pid | uid, 
                  data = data_full_panel, weights = data_full_panel$weight)

fixest::etable(mod_panel, digits = 4, file = here("Tables", "tab_s1.tex"), replace = T,
       signif.code = c("***"=0.001, "**"=0.01, "*"=0.05))
